home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
disk
/
cdrom
/
CDP_0_771.lha
/
CDP
/
Install
< prev
next >
Wrap
Text File
|
1995-09-07
|
4KB
|
135 lines
; Installscript for CDP (c) 1994-95 by andreash, Andreas Harrenberg
(set app_name "CDP")
(set version "0.771")
(set vers_name (cat app_name version))
; Texte für den Installer
; -- english [default]
(set #badkick (cat "You need at least Kickstart 2.04 (37.175),\n"
"to use CDP.")
)
(set #badMUI (cat "You need at least MUI 2.1 to use CDP.\n"
"MUI © Stefan Stuntz")
)
(set #introduction (cat "\n\n"
"CDP, a SCSI-II CD-Player\n\n"
"CDP © 1994-95 Andreas Harrenberg\n"
"MUI © Stefan Stuntz\n\n"
"CDP is Freeware!\n")
)
(set #askprogdir (cat "Please choose a directory for " app_name ".\n"
"A directory "app_name" will be created!\n")
)
(set #mkdir ("creating directory "))
(set #cpprog ("copy the programm...\n"))
(set #doctype (cat "The Manual for " app_name " is availble in Guide-Format,\n"
"as ASCII and as DVI. Which Versions should be installed?\n")
)
(set #doc (cat app_name ".doc"))
(set #guide (cat app_name "_English.guide"))
(set #dvi (cat app_name "_E.dvi"))
(set #askdocdir (cat "Please choose a directory for the manual.\n"
"A directory will NOT be created!\n")
)
; -- deutsch
(if (= @language "deutsch") (
(set #badkick (cat "Sie benötigen mindestens Kickstart 2.04 (37.175),\n"
"um CDP benutzen zu können.")
)
(set #badMUI (cat "Sie benötigen mindestens MUI 2.1 um CDP benutzen zu können.\n"
"MUI © Stefan Stuntz")
)
(set #introduction (cat "\n\n"
"CDP, ein SCSI-II CD-Player\n\n"
"CDP © 1994-95 Andreas Harrenberg\n"
"MUI © Stefan Stuntz\n\n"
"CDP ist Freeware!\n")
)
(set #askprogdir (cat "Bitte wählen Sie ein Verzeichnis für " app_name ".\n"
"Es wird eine Schublade "app_name" erzeugt!\n")
)
(set #mkdir ("Erzeuge Schublade "))
(set #cpprog ("Kopieren des Programms...\n"))
(set #doctype (cat "Die Anleitung zu " app_name " ist im Guide-Format,\n"
"als ASCII und als DVI verfügbar. Welche Version soll\n"
"installiert werden?\n"))
(set #doc (cat app_name ".dok"))
(set #guide (cat app_name "_Deutsch.guide"))
(set #dvi (cat app_name "_D.dvi"))
(set #askdocdir (cat "Bitte wählen Sie ein Verzeichnis für die Anleitung.\n"
"Es wird KEINE Schublade angelegt!\n")
)
))
; -------------------------------------------------------------------------
(transcript (cat "Installing " @vers_name " ..."))
(if (< (/ (getversion) 65536) 37) (
(message #badkick)
(exit (quiet))
))
(if (< (/ (getversion "libs:muimaster.library") 65536) 7) (
(message #badmui)
(exit (quiet))
))
; -------------------------------------------------------------------------
(complete 0)
(message #introduction)
(welcome)
; -------------------------------------------------------------------------
(set progdir
(askdir
(prompt #askprogdir)
(help @askdir_help)
(default "Work:")
)
)
(set progdir (tackon progdir app_name))
(makedir progdir
(infos)
(prompt (cat #mkdir app_name "\n"))
)
(copylib
(prompt #cpprog)
(source (cat "bin/" app_name))
(dest progdir)
(infos)
(help @copylib-help)
(confirm)
)
(complete 40)
(copyfiles
(prompt #doctype)
(dest progdir)
(infos)
(files)
(if (= @language "deutsch") (source "doc/deutsch"))
(if (= @language "english") (source "doc/english"))
(help @copylib-help)
(confirm)
(choices
#doc
#guide
#dvi
)
)
(exit (quiet))